Repeat naredba, zajedno sa Until naredbom služi za realizaciju cikličkih algoritama u Pascal-u. Slično kao i While..do naredba koristimo je kada je potrebno zaustaviti izvršavanje ciklusa proverom određenog logičkog uslova. Obično, koristimo ovu naredbu, kada je potrebno realizovati brojački ciklus kod kojeg je nepoznata jedna od granica pre samog "ulaska" u ciklus. 

 

Slika sintaksnog dijagrama repeat..until naredbe

 

 

Za razliku od While..do ciklusa koji spada u cikluse sa preduslovom Repeat..until ciklus spada u cikluse sa postuslovom, jer se logički uslov proverava nakon prolaska kroz naredbu ili blok naredbu koja se nalazi u "telu" ciklusa. Dakle, Repeat..until ciklus će se izvršiti barem jedanput. Kod Repeat naredbe postoji jedan izuzetak, koji se ne sreće ni kod for ni kod while ciklusa, za kreiranje blok naredbe nisu nam potrebne rezervisane reči begin i end, već su same reči repeat i until graničnici blok naredbe. 

 

Slika algoritamskog zapisa repeat..until naredbe

 

Ciklus se izvršava dokle god je logički uslov L netačan, a sa izvršavanjem ciklusa se prestaje kada je vrednost logičkog uslova jednaka true.

Primer 1.

Koristeći repeat naredbu naip koji za uneto x (x>1) izračunava prvu vrednost x^n koja je veća od 10^8.

Program StepenX;

var x,y:real;

Begin

 read (x);

 y:=1;

  Repeat

   y:=y*x;

  Until (y>1E08);

 writeln ('trazeni broj je',y:10:5);

End. 

Primer 2. 

Naip koji, korišćenjem repeat naredbe, određuje najmanji broj parnih brojeva počev od broja dva, čija je suma veća od R.

 

Program brojParnih;

var s,a,k,r : integer;

Begin

 write ('unesite r'); readln (R);

 S:=0; a:=0; k:=0;

  Repeat 

    a:=a+2; s:=s+a; k:=k+1;

  Until (s>r);

 write ('k=',k);

End.

 

 

Za vežbu: